/*
Julia Melin	
Proposal title: Testing a Theory of Hybrid Femininity


HYPOTHESES

Stated-Hyp1: "my hypothesis that having worked in a hypermasculine occupation 
will benefit women when applying for another job in an occupation that is 
male-dominated" (p. 1)

	Test-Hyp1: The recommended SALARY will be higher for women with hypermasculine background (vs. hyperfeminine background) in male-dominated industry job applications 

	Test-Hyp2: The recommended BONUS will be higher for women with hypermasculine background (vs. hyperfeminine background) in male-dominated industry job applications 


Stated-Hyp2: "Empirical analyses will include tests for differences in means and regression 
models testing differences in average effects for each experimental manipulation." (p.4)
	
	
	Test-Hyp3: The recommended SALARY for women will vary between male vs. female dominated industry job applications

	Test-Hyp4: The recommended SALARY for women will vary between male vs. gender-neutral dominated industry job applications	
	
	Test-Hyp5: The recommended SALARY for women will vary between female vs. gender-neutral dominated industry job applications		
	
	Test-Hyp6: The recommended BONUS for women will vary between male vs. female dominated industry job applications

	Test-Hyp7: The recommended BONUS for women will vary between male vs. gender-neutral dominated industry job applications	
	
	Test-Hyp8: The recommended BONUS for women will vary between female vs. gender-neutral dominated industry job applications			
	
	Test-Hyp9: The recommended SALARY for women will vary between hypermasculine vs. hyperfeminine backgrounds

	Test-Hyp10: The recommended BONUS for women will vary between hypermasculine vs. hyperfeminine backgrounds
	
	
Stated-Hyp3: "I will determine the mediating role of the applicant’s perceived 
competence, leadership ability, commitment, reliability, and masculinity"
	// NOTE: I'm assuming that the mediation pertains to job applications to 
	male-dominated industries because that is the main hypothesis of the paper 
	(proposal page 1)


	Test-Hyp11: Percieved competence will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp12: Percieved competence will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp13: Percieved leadership will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp14: Percieved leadership will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry
	
	
	Test-Hyp15: Percieved commitment will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp16: Percieved commitment will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry
	
		
	Test-Hyp17: Percieved reliability will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp18: Percieved reliability will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry
	
	Test-Hyp19: Percieved masculinity will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	Test-Hyp20: Percieved masculinity will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in job applications in male-dominated industry

	
	
********************************************************************************
NOTES

- there is deviation in the treatments in the proposal and fielded quex. Please 
see questionnaire to understand what was actually fielded. We are testing 
hypothesis 1 and 2 within male-dominated industry only because that's the 
proposed hypothesis. 

**************
Meeting notes 3-8-2021 

- study mediators for the main hypotheses (hypermasc vs. hyper fem in male 
dominated industry job application)
- within each background industry, look at differences in industry being 
applied to. (2x3)

*/

clear all
use "Melin1066.dta", clear

********************************************************************************

* INDICATORS OF EXPERIMENTAL MANIPULATIONS
	tab P_41
	
	* background industry (military vs. cosmetics)
	recode P_41 (1/3=1) (4/6=0), gen(hypermasculine)
	tab hypermasculine
	
	* applying to industry (automotive, wedding, or consulting)
	lab def industry 1 "1 male-dom" 2 "2 female-dom" 0 "0 gender neutral"
	recode P_41 (3=0) (6=0) (1=1) (4=1) (2=2) (5=2), gen(industry_type)
	lab val industry_type industry
	
	* male dominated industry
	recode industry_type (1=1 "made dom") (2=0 "fem/control") (0=0), gen(industry_male)
	tab industry_male 
	
* OUTCOME MEASURES

	* salary
	tab Q1
	clonevar salary=Q1
	replace salary=. if Q1==999998

	* bonus
	tab Q2
	clonevar bonus=Q2
	replace bonus=. if Q2==999998 	
	
* MEDIATORS

* competence

	tab Q4_3
	clonevar competence = Q4_3
	replace competence =. if competence>7

* masculinity 

	tab Q7_1
	clonevar masculinity = Q7_1
	replace masculinity =. if masculinity>7

* commitment
	/* from quex:
	Q3.
How <u>committed<u> to the job do you think this applicant would be relative to other employees in similar positions at the company? 	

<i>My impression is that this individual would be <u>more committed<u> than ____% of other employees
*/
	tab Q3
	clonevar commitment = Q3
	replace commitment=. if commitment>100
	
* reliability
	/*from quex: On a scale from 1 “Not at all” to 7 “Extremely”, to what extent do you perceive this applicant as <u>reliable<u>?*/
	tab Q5
	clonevar reliability = Q5
	replace reliability =. if reliability>7	

* leadership ability
	/* from quex:
	Q6.
How much of a <u>leader<u> do you think this applicant would be relative to other employees in similar positions at the company? 

My impression is that this individual would be a <u>better leader<u> than ____% of other employees

*/
	tab Q6
	clonevar leadership = Q6
	replace leadership=. if leadership>100
	
	
********************************************************************************

* ANALYSIS
	
*	Test-Hyp1: The recommended SALARY will be higher for women with hypermasculine background (vs. hyperfeminine background) in male-dominated industry job applications 
	reg salary i.hypermasculine if industry_male==1
	// do not reject. 0.001
	tess 1.hypermasculine +, init(Melin1066) bonf(2)

*	Test-Hyp2: The recommended BONUS will be higher for women with hypermasculine background (vs. hyperfeminine background) in male-dominated industry job applications 
	reg bonus i.hypermasculine if industry_male==1
	// do not reject. 0.734
	tess 1.hypermasculine +, bonf(2)
	
*	Test-Hyp3: The recommended SALARY for women will vary between male vs. female dominated industry job applications
	reg salary i.industry_type if industry_type!=0 
	// do not reject. 0.003
	tess 2.industry_type, bonf(2)
	
*	Test-Hyp4: The recommended SALARY for women will vary between male vs. gender-neutral dominated industry job applications	
	reg salary i.industry_type if industry_type!=2 
	// reject. 0.405
	tess 1.industry_type, bonf(2)	
	
*	Test-Hyp5: The recommended SALARY for women will vary between female vs. gender-neutral dominated industry job applications		
	reg salary i.industry_type if industry_type!=1
	// do not reject. 0.000
	tess 2.industry_type, bonf(2)
	
*	Test-Hyp6: The recommended BONUS for women will vary between male vs. female dominated industry job applications
	reg bonus i.industry_type if industry_type!=0 
	// reject. 0.405
	tess 2.industry_type, bonf(2)
	
*	Test-Hyp7: The recommended BONUS for women will vary between male vs. gender-neutral dominated industry job applications	
	reg bonus i.industry_type if industry_type!=2 
	// reject. 0.277
	tess 1.industry_type, bonf(2)
	
*	Test-Hyp8: The recommended BONUS for women will vary between female vs. gender-neutral dominated industry job applications			
	reg bonus i.industry_type if industry_type!=1
	// reject. 0.058	
	tess 2.industry_type, bonf(2)	
	
*	Test-Hyp9: The recommended SALARY for women will vary between hypermasculine vs. hyperfeminine backgrounds
	reg salary i.hypermasculine
	// do not reject. 0.000
	tess 1.hypermasculine, bonf(2)
	
*	Test-Hyp10: The recommended BONUS for women will vary between hypermasculine vs. hyperfeminine backgrounds
	reg bonus i.hypermasculine
	// reject. 0.525
	tess 1.hypermasculine, bonf(2)	
		


*Test-Hyp11: Percieved competence will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry
	reg salary hypermasculine if industry_type==1
	est sto m1

	reg salary hypermasculine competence if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// do not reject. 0.0001
	tess, mediation
	
*Test-Hyp12: Percieved competence will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry
	reg bonus hypermasculine if industry_type==1
	est sto m1

	reg bonus hypermasculine competence if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.3925
	tess, mediation	
	
*Test-Hyp13: Percieved leadership will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry

	reg salary hypermasculine if industry_type==1
	est sto m1

	reg salary hypermasculine leadership if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.0551
	tess, mediation
	
*Test-Hyp14: Percieved leadership will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry
	
	reg bonus hypermasculine if industry_type==1
	est sto m1

	reg bonus hypermasculine leadership if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.9088	
	tess, mediation	
	
*Test-Hyp15: Percieved commitment will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry

	reg salary hypermasculine if industry_type==1
	est sto m1

	reg salary hypermasculine commitment if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// do not reject. 0.018
	tess, mediation
	
*Test-Hyp16: Percieved commitment will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry
	
	reg bonus hypermasculine if industry_type==1
	est sto m1

	reg bonus hypermasculine commitment if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.5551	
	tess, mediation	
		
*Test-Hyp17: Percieved reliability will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry

	reg salary hypermasculine if industry_type==1
	est sto m1

	reg salary hypermasculine reliability if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// do not reject. 0.000
	tess, mediation
	
*Test-Hyp18: Percieved reliability will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry
	
	reg bonus hypermasculine if industry_type==1
	est sto m1

	reg bonus hypermasculine reliability if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.8286	
	tess, mediation	
	
*Test-Hyp19: Percieved masculinity will mediate the effect on recommended SALARY for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry


	reg salary hypermasculine if industry_type==1
	est sto m1

	reg salary hypermasculine masculinity if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.7013
	tess, mediation
	
*Test-Hyp20: Percieved masculinity will mediate the effect on recommended BONUS for women with hypermasculine vs. hyperfeminine background in applications to male dominated industry

	reg bonus hypermasculine if industry_type==1
	est sto m1

	reg bonus hypermasculine masculinity if industry_type==1
	est sto m2
	
	suest m1 m2
	test [m1_mean]hypermasculine=[m2_mean]hypermasculine

	// reject. 0.4219
	tess, mediation
